﻿
Imports NENAData.LINQ
Imports NENAData.NENAMember

Partial Public Class Rebuild
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnRebuild_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnRebuild.Click
        Dim oNENAMember As NENAMember = New NENAMember()
        Dim oMembers = oNENAMember.GetMembersForRebuild()

        Dim oActivate As New NENAData.NENAMember.Account.Activate

        For Each iterMember As Member In oMembers
            oActivate.RebuildMembershipAccount(iterMember.Affiliate_ID, iterMember.Member_ID, True)
        Next
        'oActivate.RebuildMembershipAccount(3, 4035, True)

    End Sub

    Protected Sub btnAddMemberToRole_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAddMemberToRole.Click
        Dim oActivate As New NENAData.NENAMember.Account.Activate
        NENAData.NENAMember.Account.Activate.AssignCurrentMember("browntom")

    End Sub
End Class